home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Infotenimiento / Rednex / REDNEX.DIR / 00066.ls < prev    next >
Encoding:
Text File  |  1995-08-21  |  650 b   |  23 lines
  1. on mouseDown
  2.   set oldH to the mouseH
  3.   set oldV to the mouseV
  4.   set eensy to -1
  5.   set thisSprite to the clickOn
  6.   repeat while the mouseDown
  7.     cursor([10, 11])
  8.     set bloh to the regPoint of cast "MaskCast"
  9.     set rogH to getAt(bloh, 1)
  10.     set rogV to getAt(bloh, 2)
  11.     set newV to the mouseV
  12.     set newH to the mouseH
  13.     set hOffset to newH - oldH
  14.     set vOffset to newV - oldV
  15.     set the regPoint of cast "Maskcast" to point(rogH - hOffset, rogV - vOffset)
  16.     set the locH of sprite thisSprite to the locH of sprite thisSprite + eensy
  17.     set eensy to -eensy
  18.     updateStage()
  19.     set oldH to newH
  20.     set oldV to newV
  21.   end repeat
  22. end
  23.